home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / func.drive'type$ < prev    next >
Text File  |  2009-01-03  |  565b  |  24 lines
  1. 0010 //
  2. 0020 ╞╒╬├ DRIVE'TYPE$(UNIT'NUM) ├╠╧╙┼─
  3. 0030   ─╔═ DS$ ╧╞ 40
  4. 0040   ╘╥┴╨ 
  5. 0050     ╨┴╙╙ "U;",UNIT'NUM
  6. 0060     ╨┴╙╙ "U:",UNIT'NUM
  7. 0070   ╚┴╬─╠┼╥ 
  8. 0080     DS$:=┼╥╥╘┼╪╘$
  9. 0090     ╔╞ ┼╥╥=208 ╘╚┼╬
  10. 0100       ╥┼╘╒╥╬ "NONE"
  11. 0110     ┼╠╔╞ "1541" ╔╬ DS$ ╘╚┼╬
  12. 0120       ╥┼╘╒╥╬ "1541"
  13. 0130     ┼╠╔╞ "M.S.D." ╔╬ DS$ ╘╚┼╬
  14. 0140       ╥┼╘╒╥╬ "MSD"
  15. 0150     ┼╠╔╞ "1571" ╔╬ DS$ ╘╚┼╬
  16. 0160       ╥┼╘╒╥╬ "1571"
  17. 0170     ┼╠╔╞ "CBM DOS V2," ╔╬ DS$ ╘╚┼╬
  18. 0180       ╥┼╘╒╥╬ "4040"
  19. 0190     ┼╠╙┼ 
  20. 0200       ╥┼╘╒╥╬ "UNKOWN"
  21. 0210     ┼╬─╔╞ 
  22. 0220   ┼╬─╘╥┴╨ 
  23. 0230 ┼╬─╞╒╬├ DRIVE'TYPE$
  24.